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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE 
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*® 
**® ® 
*® ® 
** ® 
*® cf 
;* AND MAY BE USED AND COPIED * 
;@ H LICENSE AND WITH THE * 
>* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
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*® 7 
*® 7 
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BILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS 
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: I 
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++ 
facility: 


VAX/VMS PL1 runtime Library. 
abstract: 


This module contains the pli runtime routines for processing the 
common options for record i/o statements. 


author: c. spitz 7-feb-80 
modified: 
Bill Matthews 22-Sep-81 


Fix so that routine pli$$recidfrom does return with the 
Z condition code bit clear if an rfa is specified. 


1-003 Bill Matthews 29-September-1982 
Invoke macros $defdat and rtshare instead of $defopr and share. 


Sete Se Se Se Se Se Se Ge Se Ge Ge Ge Ge Ge Ge Se Fe Ge Ge Ge Ge Ge Ge 
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; external definitions 
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0 8 ; 

09 35 $deffcb sdefine file a ,dteck offsets 
8 60 $Sdefstk tdefine runtime st 

0 61 $defdat tdefine operand po oa pes 

00 6¢ $defkcb sdefine key control bisek offsets 
000 6 $fabdef tdefine fab offsets 

0000 64 $Srabdef tdefine rab offsets 

0000 65 

0000 66 3 

0000 67 ; local data 

0000-° 68 ; 

8888 $2 

000 0 rtshare sharable 

0000 71 

0000 72 

0000 73 


. 
eee — 
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g7sfp=198¢ 


p++ 
;pli$Skeyto 
; this routine uses the current ie to determine the data type of 


r0 - addr of keyto descr 
(rQ) - addr of keyto 

4(r0) = size/prec of keyto 
8(r0) = data type of keyto 

"¢ - addr of fcb 

r35 = fcb_l_attr 

r4 - addr of ra 

outputs: 
r5,r6,r7,r8 - destroyed 


senabl Lsb 
pli$S$keyto_r8:: 

mov (sp),r6 ;save return addr 
bbs #tab$v_bio,<f fab$b_fac>(r2),140$ :if blockio, cont 


cb_b_fab+ 
bbc #atr_v_indexed,r35,110$ ;if indexed, 
movzbl rab$Bh_krf(r4),r5 get current key of ref 
mull #kcb_c_len,r5 iget index to correct kcb 
addl feb_T Keb(r2),r5 . 
cmpl #dat_K_char,kcb_l_dtyp(r5) ;character key? 
bneq ;if neq, no 
subl #252,sp zget room for largest key possible 
pushl sp :set addr of temp 
pushr #*m<r0,r2,r3,r4,r5> save regs 
movab 24(sp).r sget start addr of temp 
mov rab$l_ubf(r4) ,r7 :get addr of buffer 
movab kcb w7pos0(r5),r8 :get addr of posO in kcb 
10$ movzwl (r8)+>r1 yet position in record 
add r7,r) zadd in addr of buffer 
tstw (r8) zany thing left? 
beql 208 :if eql, no 
moveS (r8)+,(r1),(r3) copy this segment 
brb 10$ 3:90 again 
20$: po r 7 create st aar4 1S prestere regs 
r icon 
60$: movzwl kcb_w_pos0(r5),-(sp) spush position in buffer of key 
addl rab$l—ubf(r4), (sp) zadd in buffer addr 
100$: pusht #0 :set dst offset 
pushl 4(r0) zsset dst prec 
pushl 8(r0) zsset dst data type 
pushl fr0 zsset addr of addr of dst 
ushl @ ;set src offset ; : 
bs #fab$v_bio,<fcb_b_fab+fab$b_fac>(r2),130$ ;if blockio, cont 
bbc #atr_v_indexed,r3,150$ ;if indexed 
pushl kcb_T_prec(r5) yset src prec 
pushl Keb. dtyp(r5) set src data type 
1208 pushab 28(sp) zset addr of addr of src 
ushl #8 zset number of args : 
sbw ney cvrt sconvert key into keyto, checking error 
J yreturn 


sigerr: jmp r 
110$: pushab rab$l_bkt(r4) ;set addr of key 
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D6 43611 «#0078 ~=#1 brb 100$ zcont 
1F OD BOo8 1 : 130$: pusht #31 sset prec of src 
02 Dd OO7C 134 ushl #dat_k_fix_bin sset data type of src 
EB 11 007 135 rb 1 cont 
10 AS o9F_=—(008 1 § 1408: pushed rab$w_rfa(r4) zset addr of key 
CB «11 = «=008 1 rb 100$ cont 
008 1 3 -dsabl Lsb 
Boat 1 
085 140 ;++ 
Boge 141 ; pli$Skey_hnd 
085 16 ; this routine is the condition handler for pli$$readkey and pli$writekey. 
Boge 143 ; it is jsb'd to from an entry mask that Lies within the file control 
00 144 ; block. This vectoring is necessary, in order to easily get the address of the 
0085 145 ; file control block. After calculating the address of the file control 
ope 108 ; block, this routine sets the error code in fab$l_error. 
0085 148 ; inputs: ‘ 
0085 149 ; O(sp) - address of byte following jsb instruction in fcb. 
0085 150 ; outputs: 
0085 151; non 
0085 136 i-- 
0085 15 
0085 154 pli$$key_hnd:: 
50 6€ 00000186 8F C3 0085 155 subl3 #fcb_l_cndaddr+4,(sp).r0 ;get fcb address 
6— O1AE CO 9E 008D 156 movab fcb_T_Condit(r0),(sp) ;get addr of handler 
50 5D 00 0092 £157 mov fp,r0 Start with this frame 
52. 50 00 0095 158 10$: movl r0,r save stack frame 
5 0c AO 00 0098 £159 mov stk_l_fp(r0),r0 saddress next frame 
60 10 03 OD 009C 160 robew #3,¥@stk_l_pc,(r0) iframe accessible? 
18 13 QOAO 161 eql 30 sif eql then end of stack found, return 
60 6E€ 01 OOA2 19 cmpl (sp),stk_l_cnd_hnd(r0) ;this frame's handler us? 
EE 12 QOOAS 16 bneq 10 sif neq, no, look at next frame 
60 04 OOA7 164 clrl stk_l_cnd_hnd(r0) swe aren't needed anymore 
51 50 00 OOA9 165 mov l r0,r sset addr of frame to return to 
0 10 A2 DO QOAC 166 mov l stk_l_pc(r2),r0 :set addr of pc to return to 
08 A2 5E 00 O00B0 167 mov L sp.stk_l ap(r2) set non-zero for status 
Q0000000'GF 17 00B4 168 jmp q pli$goto zreturn : 
50 00000000°8F DO OQOOBA 169 30S: movl ss$_resignal,r0 sset to resignal 
04 00C1 170 ret sreturn 
00Cc 171 
00Cc \7¢ 3++ 
00C 173 ;pli$Sreadkey 
00C 174 ; this routine uses the current key number to determine the data type of 
45 175 ; the key of reference. it then allocates space on the stack to store a 
00C 176 ; temporary of this data type. it converts the source key to the temporary 
00C 177 ; and stores the key address and size in the rab. 
00C 178 ; inputs: 
00C 179 ; r0 - addr of key descr 
00C 180 ; O(rO) = addr of key 
bor 13) : 4(r0) = size/prec of key 
C 1 ; : 8(r0) - data type of key 
00C 183 ; r2 - addr of fcb 
oc 184 ; r3- fcb_l_attr 
oc 185 ; r4 - addr of rab 
oc 1 § 3; outputs: | 
bE : 5 : r6 is destroyed 
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o-8Ep= 1984 


(sp), r6 


#atriv ingesed. r3,100$ 


rabsb Rrf(r4),r1 
fcB_b ee PE 


‘0 
aot is. invindnum,r0 
acee c_len,ri 


fsb. T “Rebtr2), ri 
#25 2,5p 


F 
pep.t rec tri? 
kcb_l_dtyp(r1) 


kcb_w “Ten (rt) rab$b_ kszired 
Ldtyp(r1) icharacter key 


#dat_K_char, keb_l 
11 


°o 
—< 
Q 
a 
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gave return addr 

zif indexed, 

teoal current key of ref 
goal key ete 

3 rtgque yes 

case sryel d key number 


iget index to correct kcb 


:get room for corgest key possible 
set addr of 
set dst dies to zero 
soe dst prec 
t dst data type 


ifn 
Keb el. prec(r1),rab$b_ ksz(r4) wraet 8 size of key in rab 


ab 


gout ix_bin 
#4, ras ke2(r4) 
12¢ sp) 


sp. rabSl_kbf(r4 


scont 


t 
sset dst offset to zero 
sset dst prec 
zset dst fata type 
zset size of key in rab 
;set dst addr 
sset src offset 
sset src prec 
sset src data type 
zset addr of oan of src 
copy a descr addr of onkey 
:set number of args 
4 poe rt to key data type 


A es bio, ,<fcbb_ fab+tabsbe hd 1308 ;if Mockte, cont 


key buffer addr in ra 


zse 
#rab$c _kéy, rab$b_ rac(r4)- seat ayes access in rab 


(ré6 
rab$l_bkt(r4) 
(r6) 


co. L_condit(r2),(fp) 


ap 

re 

738 (sp) .9* pli$cvrt_any 
; (fp 

ibs 

ap 


pigerr. r0 
4(sp) 70 
20$ 


#pli$_cnverr,r0 
fail 


etu 
vane virt block num for block io 
sreturn; 


:save ap 

;set up status comp for handler 
iset up condition handler 

:do the conversion 

twe don’ t need handler anymore 
sconversion fail? 

sif neq, yes, do onkey 

srestore ap 

sreturn : 
:get return addr for keyto conversion 
s$hould we signal error? 

zif neq, no, do onkey 

:set conversion error 

zand fai 


set size of "7 in rab if not char 


a | 
“-SEP=- 225: v04-00 Page 
meggecon * pL runtine record f0 option orocesstn 1-HE0-198s WRGhi8} AME SRESR EBPs nin "OOP cf 
: ; ting to char? 
nk? Tn 152 23 —_ goer Fagt-*.cher.s2tep) o1f eal. ves. it teiled once, so no 
aad he 176 48 . sonkey va ue will be returned 
326 zsset for char var 
$0 d100 SF bo in $9 — Wer sBisey a iset for Length of 556 | 
ot on aigtas ee 1 51 subl 458 : p sget room for char temp | 
ack SCE” gf 5 185 26 movl $P5 § +44 (sp) gore . + a | 
sss PE say cE BD 0199 3 casat $8 te aimert one addr “ onkey value 
DD 0199 55 pushl pot - =o be gion 
poss we Hie Se) Bt Retitaneere GE Eertrnte 
Q0000000'GF 04 FB Sia? 58 calls #4,9*pLi$io_error + ae condition 
04 OQ1AE 59 ret 3 
grae ef 3 
O1AF 262 ipli$$chk_keycnd 
: h ab for status that should be signaled as 
Star es : Se ust tan santintans @h mot a status is found, the onkey value is 
O1AF $83 : calculated, and io_error is called to signal the key condition. 
QO1AF 66 ; inputs: 
O1AF $66 3 r0 = error sub-code 
QIAF 268 ; r2 = fcb address : 
O1AF 69 ; r3 = address of key descriptor 
O1AF $3 ; r4 = rab address 
O1AF si 3; outputs: 
O1AF % $ no 
OIAE zr ots 
O1AF 75 pli$Schk_keycnd:: | ; P 
50 00000000°8F 01 AA 6 enol spi 8_resr.r8 hm ag Bt eal 
we 8 0188 78 10$: rsb return 
5 0189 279 208: tstl  Fr3 tkey specified? 
an 01 80 : beql 10$ sif eql, no, just return 
, D3 0180 281 tstl (r3) skey addr specified? 
3 3 01BF see beql 10$ 4s sif OF» BO. suet Ceture 
08 A4 aeenenk » Bice $82 cnt srest_rer renel ptete isT*tat. yes, oe 
08 A4 00000000°8F o gi¢8 +H cept Graek hey panel stetets Bt Mh raise key 
: ed? 
08 AS 00000000' 8F »} 3182 rH cnet #rms$_mrn,rab$l_sts(r4) Peg. yes. feise me 
08 A&4 00000000'8F 01 Bir 8 capt grges_cup.rebst_ste(rd) Peat, yes. raise key 
BR ii 1€9 91 cmpl #rms$_rex,rab$l_sts(r4) ;record already exists? 
mee ee F 9 bne 10$  ~ - sif neq, no, just return 
: 3 1S 38 30$: 4 #258,sp get room for vcha temp 
a ee Ee Bees ushl sp tset addr of dest 
2 DD Sire 95 Sushi r set fcb addr 
: DD ire 96 pushl fr seek porer cate 
000000008 DD $8 38 ee 4 eetnee pot: dest offset 
PBB 08 299 pushl #256 yset dest size | 
are? oo ee 0 0 pushl #dat_k_char_var sset dest data type 
18 AE OF 19 ° pushab 24(sp)~ ~ sset addr of addr of dest 
00 DD 1 $2 pushl #0 set src offset | 
| 
| 
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| 
6-SEP=19 PLIRTL.SRCJPLIRECOPT.MAR; 1 a) 
04 A DD 1 03 ushl 4(r3) set src prec 
ae Re pat ie ae EL are 
pu r set addr of addr of src 
00000000'GF 0 FB 1D calls #8,g*pli$cvrt_an convert key to vcha 
00000000'GF 04 FB 8 4 09 calls 96.9°DLi$i0. eFror isignal the condition 
04 B 38 ret sreturn 
8 C 0 
C 10 £00 | 
8 C 11 ;pli$$writekey 
C \¢ ; this routine uses the current key number to determine the data ty e of 
022C 13 ; the key of reference and its position within the record if the file is | 
022C 14 ; indexed. it allocates space on the stack to store a temporary for relative 
022C 15 ; file keys. it converts the source key to the temporary (or directly into 
022C 16 ; the record to be written) and stores the key address and size in the rab. 
022C 17 ; the key number option must have been processed as well as the from reference 
022C 18 ; before this routine is called 
bese 19 ; inputs: 
022C 20 ; r0 - addr of key descr 
022C $3 : O(r0) = addr of key 
O22c 3 ¢ ; 4(r0) = size/prec of key 
bsst 323 ; 8(r0) - data type of key 
O22C 324; rg - addr of fcb 
O22C 325 ; r3 - fcb_l_attr 
022¢ $8 3 r4 = addr of rab 
022C 7 ; outputs: 
022C 28 ; r3.r5,r6,r7,°8 = destroyed 
psst +4 jo 
Q022C 330 x 
O22C 331 pli$Swritekey_r8:: 
56 6€ 00 O2eC $38 mov | (sp),ré — ;save return addr 
31 00BC C2 O05 £0 O22F 33 bbs #fab$v_bio,<fcb_b_fab+fab$b_fac>(r2),100$ :if blockio, cont 
2D 53. 10 €1 0235 $3¢ bbc #atr_v_indexed,r5,100$ ;if indexed, 
55 35 A4 9A 0239 35 movzbl rzo$Bb_krf(r4),r5 get current key of ref 
3¢ A255) 91s«2 3D $39 cmpb c5,fcBb_b_numkcbs(r2) slegal key number? 
OA 18 0241 37 blequ 108 — :if lequ, yee 
50 00000000'8F pO 0243 338 mov l #pli$_invindnum,r0 sset invalid key number 
0208 31 O24A 44 brw ai sand fai 
2c 8664S 24D 40 10$: micl #kcb_c_len,r5 sget index to correct kcb 
55 38 A2 CO 0250 341 addt «feb T Rebir2) .r5 | 
5E OO0000FC 8F C2 0254 4 subl #252,5p get room for largest key possible 
5E DD 0258 4 pushl 8 set addr of dst 
00 DD 8 50 Ste pushl # sset dst offset to zero 
04 AS OD 5F 45 pushl kcb_l_prec(r5) sset dst prec 
$3 DD 8 62 48 ushl Keb L-dtyp(r5) zyset dst data type | 
8 11 64 4 rb 1108 scont in common 
5E DD 0266 348 1008: pushl s zset addr of dst 
00 OD 0268 49 pushl sset dst offset to zero | 
1F DD Q26A 50 pushl #31 ; set dst prec 
02 oD 8 6C 51 pushl #dat_k_fix_bin set dst data type 
0c AE oF 6f 3¢ 110$:  pushab 12(sp) yset dst addr 
0 DD 0271 5 pushl set src offset 
04 AO DD 0273 54 pushl 4(rQ) sset src prec 
08 AO oD { 8 55 pushl 8(r0) sset src data type 
28 DD 7 56, pushl rf set addr of addr of src 
53 0 00 78 > Ye mov l noes scopy key descr addr for onkey 
08 D 43 53 ushl @# set number of args 
FEBD 0 8 59 sbw key_cvrt sconvert src to key data type 
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SE 28 A ] 60 movab ry pe 
59 OOBC C¢ O§ i > 61 bbs #tabby “Bho <teb,b, b tabs faboe at 300$ ;if blockio, cont 
46 OC A 10 =€1 D 86 bbc #atr_ y ndexed attr(r2 ind dex xed | 
6 OA 01 g 6 cmol #dat_k_char, edete ete 2) 62008 zit key? 
<8 12 9 64 bneq 1608" :if neq, no 
C «BB 97 65 pushr goecrte re r4> save regs 
7 ££ Af 9 99 66 movab ag? 2 sget start ¢ addr o 
0 O4A 3 9D 67 movl bebe teste get tota length a "hey 
4 A450 02A1 of movb =_- 0, Fabb$b hez( rf ;set size in rab 
7 284 D 0 AS 36 movl rab $l_rb?( iget addr of buffer | 
58 08 AS’ 9E A9 70 movab bch ew we =P gs Ors sr 78 :get addr of posO in kcb | 
23 88 5 8 A 71 120$: movzwl :get position in record 
C B i addi r7, +4 3add addr of buffer 
Sse 68m ti WW a ps8 7 movcs 0, (r1) »#*x20, (r8)+, (F3)° scopy this segment 
F2 1A B9 74 bgtru 6 :if gtru, more to do, go again 
if BA psee 75 popr #*m<r2,r3,r4> irest ore regs 
D 11 O2BD 6 r 1 
51 08 AS 3C O2BF 77 160$: movzwl kcb_w peed tr) ri iget  seateten in buffer | 
51 28 AG COCO bscs 78 addl rabS\-r (r4) ri add ¥- addr of buffer 
1C «=6BB O27 79 pushr #*m<r r4> save An 
34 AG OA AS 90 02C9 80 movb Saat netsh heehee) set size of key in rab 
61 OC AE OA AS 28 O2CE 381 move3) kcb_w Legoces). 12(sp),(r1) scopy key to buffer 
1C =6BA pg0e 385 pe r #*mer2,r35,r4> srestore regs 
04 11 0206 8 r 0$ scont 
34 AG 04 90 0208 384 g008: movb #4,rab$b_ksz(r4) jset size of key in rab 
30 AS =O SE~—sé*DO bSe6 385 210$: movl sp,rab$l_kbf(r4) yset key buffer addr in rab 
1E AS «601 «490 «O2E0 86386 movb #rab$c ukéy,Pab$b_ rac(r4) :set -neved access in rab 
66 17 osce 387 jmp (r6) zretur 
38 AG es t 02E6 388 300%: popl rab$l_bkt(r4) ;set (bn for block io 
66 17 O2EA 4 mp (r6) return 
O2EC 90 -enabl sb 
BseE 391 
O2EC 9g 3 
O2EC 9 pl i$Skeynum 
O2EC 394 ; inputs 
O2EC 395; r0 - addr of keynum option 
O2EC 396; rl - addr of : oe? option 
O2EC 397 ; r2 - addr of 
O2EC 398 ; r3 - fcb_l_attr 
O2EC 399 ; r4 - addr of rab 
O2EC 400 ; outputs : 
O2EC 401; rl - addr of key option 
O2EC e3¢ i-- 
Be ou 
EC 404 pli$Skeynum:: 
50 D5 O2EC 405 tstl r0 skeynum passed? 
36 6 613) «C60 33 406 beql 90$ :if eql, no, just return 
OA 53. 10 €0 O2F 407 bbs #atr_v_indexed,r3,20$ :if indexed, cont 
50 00000000'8F D0 O2F4 408 108: mov l #olis_ hot indexed, r0 jset not indexed file 
0157 31 O2FB 409 brw fai sand fail 
OA 53 ge E0 8 FE 410 gos: bbs pte v akeyed. 73,408 tif keyed, cont 
50 00000000' 8F bo 08 411 30$: movi wplis_ fRotkeyd,rd ;set not keyed file | 
0149 1 030 $16 brw il and fail 
“3 00BC 3 >. oe OC 413 40$: bbc #abSv bio,<fcb_b tab+ tabsb fac>(r2), 45$ ;if not blockio, cont 
00000000 ' 8F 9 \% 414 42$: mov l #plis_ TonblokiosrO zset conflicting block io 
0139 1 1 415 brw fail zan 
5st p5 1C 416 45$: tstl r| pkey specified? 
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LISRECOPT - pli runtime record io option processin 16-SEP-1984 02: AX/VMS Macro v04-00 Page 
5 tbO8 r 66-SEP-1984 94°99: 3 PLIRTL.SRCJ PLI RECOPT.MAR; 1 ° 
A is 1 417 bneq 60$ sif neq, yes, cont 
50 sates * F 213 50$: mov #pli$_nokey,r0 tset no key Specified 
1 1 4) brw fail sand fail 
f A 420 608: movzwl (r0),r0 ; et key —" 
A 1 D 421 geq 80$ f geq, 
50 noes 3 F ¢ § 70$: pees +) a catalan iset tinvatid key number 
rw a 
, oe: a¢ A : 424 808: movzbl fcb_b_numkcbs(r2),-(sp) ; i highest Key, number + 1 
_ oe D1 D 425 cmp r0,tsp)+ ey num too big? 
E 18 0340 426 bgeq 708 f geq, then yes, fail 
35 AG 0 be r : 7 908 ee r0,rab$b_krf(r4) siete key of ref in rab 
: rs 
a3? 155 
347 430 ;+ 
0347 8 431 ipl iSsnatchgtr 
0347 138 3: inp 
0347 433; ‘0 - addr of paren greater 
0347 434 ; ri - addr of k 
0347 435; r2 ~ addr of fe 
0347 436; r3 - fcb_l_attr 
0347 437; r4 = addr of rab 
0347 438 ; outputs: 
0347 439; rl - addr of key 
0347 440 ;-- 
0347 441 
0347 ri pli$Smatchgtr:: 
16 DD 0347 44 ushl #rab$v_kgt zset field index of key greater 
02 11 0349 444 rb 100$ scont in common 
SscB 44g 3 
0348 447 ipLiS$matchgeq 
0348 448 ; inputs 
0348 449 ; r0 = addr of geten _greater_eql 
0348 450 ; rl - addr of ke 
0348 451; r2 - addr of fc 
0348 +3§ : r3 - fcb_l_attr 
0348 453; r4 = addr of rab 
0348 454 ; outputs 
0348 455; 1 - addr of key 
b3c8 ap 
0348 458 pliS$$matchgeq:: , : 
15 DD b3e8 rr} 1008 pushl #rab$v_kge sset field index of key greater 
50 D5 b3cp 461 tstl r match gtr specified? 
14 13 O34F £86 beql 110$ af eql, no, just retuce 
AD 53 4 —E1 0351 46 bbc #atr_v_keyed, 3, 30$ not keyed file, fail 
B7 00BC C2 0 EO 0355 464 bbs #fab$v_bio, <tcb., b_ fabs fabso_ fac>(r2),42$ ; ery! block io, fail 
51 05 Q358 465 tstl ri : key entecitieg? 
C1 13 Q35D0 466 beql 50$ no, fail 
04 A6 O01 6E€ 60 FO OQO35F 467 insv (r0), (sp) .#1,rab$l pre seat match greater or greatereql 
SE 04 AE 9E 0365 468.110$: movab 4(sps,sp — iremove index 
05 toe 183 rsb jreturn 
036k 471 j++. , 
8 6A 4% ipli$$valrecidto 
36A 473 ; inputs: 
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50 


OA 53 OF 
50 00000000'8F 
0009 


50 

FB 

ED 53 —sOOF 
51 

OA 

50 00000000'8F 
00C2 

10 A& = 60 
1E AS. 02 
35 A4 

04 

2C A4 


60 


45 
OA 00BC 3 7 
50 00000000*8F 

009D 
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0F 83:28 wh yi Macro v04-00 Pa 
6=SEP=1984 11:39:4 PLIRTL.SRCJPLIRECOPT.MAR; 1 
036A 474; r0 - addr of record id to 
6A 475; r2 - addr of fc 
6A 2/8 3 r5 = feb_l_attr 
6A 477; r4 = addr of rab 
6A $08 j-- 
036A 47 
036A rt pli$$valrecidto:: ; 
rf 036A 481 tstl r srecord id to specified? 
13 Q36C rt {| beql 1208 ] sif eal, no, just return 
EO B39 ‘ bbs #atr_ v_recidacc,r3,120$ ;if rec id, cont 
DO 0372 484 115%: movi #pli$_recid.r ;set not record id file 
31 8 7 rt brw ail zand fail 
05 7C 486 120$: rsb jreturn 
037D 487 
037D 488 ;++ : 
0370 489 ;pli$$recidfrom 
037D 490 ; inputs: 
B37 491 ; r0 - addr of record id from 
037D o36 : ri - addr of ke 
037D 493; r2 - addr of fc 
037D 494; r3 - fcb_l_attr 
037D 495 ; r4 - addr of rab 
0370 496 ; outputs: — ; ; 
037D 497 ; condition code z bit is clear if rfa from specified 
037D 498 ;-- 
0370 499 | 
037D 500 pli$$recidfrom:: ; 
DS 0370 501 tstl r0 srecord id from specified? 
13. 037F 208 beql 120% ; zif eql, no, just return 
E1 0381 50 bbc #atr_v_recidacc,r3,115$ ;if not recid, fail 
DS 0385 504 tstl rl skey also specified? 
13° 0387 505 beql 130$ . sif eql, no, cont : 
DO 0389 506 movl #pli$_recidkey,r0 zset record id and key conflict 
31 0390 507 brw fai zand fail 
7D 0393 508 130$: movq (r0) ,rab$w_rfa(r4) zset recid in rab 
90 0397 509 movb #rab$c_rfa,rab$b_rac(r4) ;set for rfa access in rab 
94 0398 510 clrb rab$b_krf(r4) sreset key of ref in rab 
B9 O39E 511 bicpsw #4 zclear condition code Z bit 
05 03A0 21¢ rsb zreturn 
O3A1 51 
O3A1 514 ;++ 
O3A1 «515 s;pli$Sfxdctl from 
Q3A1 516 ; inputs: ; ? 
Q3A1 «(517 ; r0 - addr of fixed control from descr. O(r0) is the addr, 4(r0) 
O3A1 518; is word size/prec, 6(r0) is word data type 
QO3A1 519; 4 - addr of fcb 
Q3A1 520; r3 - fcb_l_attr 
O3A1 521; r4 - addr of rab 
03A1 2 ; i-- 
8 Al 
Al 524 pliS$Sfxdctlfrom:: : 
D4 O3A1 525 clrl rab$l_rhb(r4) zyassume not specified 
0 AS 526 ushl = (r0) zsave addr of fixed ctl 
1 ~ 527 eql 150$ : sif eql, meee speci fied ’ 
E1 A 528 bbc #fab$v_bio,<fcb_b fab+fab$b fac>(r2),154$ ;if not blockio, cont 
0 ag 529 133%: movil #pli$_conblokiosrO :set conflicts with blockio 
1 038 530 brw fail sand fail 


>- 
moan 


NTN HHHHAHMNOS 
papeputmtatatara te 4 


Ro ro 
DOAOAOAMAOOMAOAQAQAAO.AN|2AANAAOAAAo 


E 15 
-SEP- 225: M v04-00 Page 11 
et el = PEE PUMENAE CORED SO SPEIER Pree eee TT tbes 11:98:45. DPcinva okt ome the contseens dy 
: ,6(r0) zis it char var? 
06 AO 98 8) 0 2 1 1348: os #9at-k.char_var 6(r0 ty cee a | 
51 00 30 3¢ Bf 2 : movzwl 9.0) rt a current size 
04 AO bb tf ¢ 135$: a hiro) iset size, datatyp for bysize | 
. 1 FB C7 calls #1,g*pli$$bytesize iget size — | 
apeemtetys g 9 cE : blbc r0 938 sif loc, fail 
¢ 5 0301 8 137%: tstl ri. yanything there? 
ie 8 D3 9 " bleq 150 ‘if leq, no, just return | | 
50 © O0E5 (3 9A b3p8 at? Sevens <fcb.b_fab+fabSb_fsz>(r2).r0 :get fixed control size | 
5 D1 O3DA 41 cmp r0,r 790 Be Syggan teg | 
50 00000000' 4 3 0300 278 ae jabs fxcsiz,r0 isetst tied contrvl wrong size | 
: | we yan 
Pr D0 tht ate 1208: oo rab$l rhb(r4) sset addr in rab 
aie ad O3Ec 546 ; a4 % yreturn 
3ED 547 150$: movab 4(sp),sp :clean stack 
eg Rese 8 O3F 1 548 rsb yreturn 
oars 325 ;++ 
033 331 ipLisStxctlto_r6 | 
F 3; inputs: . F 
: - ixed trol to descr. O(r0) is addr, 4(r0) is 
oars $58 : e me 6 oe Bove 6(r0) is word data type | 
O3F2 555 ; r2 = addr of feb | 
O3F2 556; r3 - fcb_l_attr 
ona sar z r4 - addr of rab | 
Q3F2 558 ; outputs | | 
O3F2 559; is destroyed 
gus de 
O3F2 562 pli$$fxctlto_ré:: s aeaa teed | 
56° $5 D6 O3F5 $6 et * yee cents tsave addr of fixed ctl descr | 
saddress specified? 
ee aE TP ttcate. toe 
Pe S209 8 —® a ees size. datatyp for bysize’ 
‘ore OF PB 0405 569 calls #1,q*pli$$bytesize sget size — 
— aa 5 9 040C 570 blbc r0,fail sif +E ya 
- n 3 
a1 98 ab 2F) ples 1608 “if. leq, no, just return — | 
t2 oA 8e13 358 movzbl <fcb_b_fab+fab$b_fsz>(r2),r0 sget fixed control size | 
a” gs 65 Bt ett fe cmpw #dat_k_char_var,6(r6) ye gel i ye 
51 19 Bf OeIE 32 ried rO,e sqnut room? 
10 14 0421 577 bgtr 172$ ; “Ey Spent | 
3; «85 Bo oe ; 256 ee otis Hot sew to length of fixed control 
2c Ra 24 td 4 $ 580 mov | ri.rab$l_rhb(r4) geet adr in rab 
05 0420 581 rsb : , | 
51 20 o : . 286 170$: geet r0,ri Hie te yes. cont eee | 
; ; - a 
50 00000000" &F d0 4 3 i 172$: port a9} |S. facetar0 ‘and fait baa is ! | 
43C 6 175$: cmpw #<dat_k_structure+64>,6(r6) sbit sized structure? 
wiadt ced Bt B O43 3 7 bneq 176$ sif neq, no, cont | 
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2c AS «6066S OD 
0 
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io option processin 16-SEP-19 
6-SEP=19 


popl r0 
ri,sp 
mov sp,rab$l_rhb(r4) 


r 
mov (r6),rab$l_rhb(r4) 
rsb 
-dsabl Lsb 
pushl r2 
pushl Na 
pushl ae SS error 
ti ,9*pli$io_error 
re 


end 


4 
4 


19:89:23 EBLINTE. SRESPLIRECOPT MAR; 1 


iget ret addr 

iget size for temp on stack 
:set a of temp 

sretu 

iset addr in rab 

;return 


spush fcb addr 

spush error code 
spush error condition 
:signal the error 


Page 


Nee 


“wee 


Me 


Page 1 
. ( 


PLIRECOPT .MAR; 1 


o V04-00 


SS oe | 


G 15 


record io option processin 1 


- pli runtime 


PLISRECOPT 
Symbol table 


cucucucucucucucucucucucucucuCuCICICICUCuCUCUCUCUCUCUCUCICU neveucueum ow 
pelelelelelelelelelelelelelelelelelelelelelelelelelelololo) SCOCOOCOCO oO 
oa >< MK OK OK DK OK OK OK OK OK OK DK OK OK OK << CK OK OK bd 
YVVVVVVVVVYVVUY 
@ @aoaancacacaccacc a 
WTOVOTO £€ UW VOMORWORCUE Fee ee KKK RHEE ENTWIK VDODUSOwrNOOe &£ ee EMM 
ee IST Fe QTWODTTORON FE KE RR RRR EK REE EE EMM -—OCOMMININMOONWRK Rt eB eH EROR 
ODOOCOCO$— FK—MMNVUOCOMMOMMNs Heke KKK KEE EE FE OOOOOCOOCOOOOCOOCOCOOCOOCOCO « « «zt FeOO# 
DOOOOO #€ DOOOOCOOCOCOCOCOOC € eek KKK KEKE KEE EEE FEQOOOOOCOOCOOCOOCOOCOCOOCOCOO « « «te FOO 
DOOOOO ¢« QDOSCOSCOOCOCOCOCOCOCOCOF kk RK KEE EE FE OOOOOCOOCOOCOOCOOOCOOCOCOCO « « « # FOO 
DOOOOO # QDOOWOWOOOOCOCOCOCOC KB KR KERR RRR KE KEE EOOODOOOOOCOCOCOOCOCOCOCOO « « «te OO# 
DOOOOO #« QDOOTOOCOCOCOOCOOCOCOC &€ kK ke RK KKK KKE HEE KH EOOOOOCOOCOOCOOCOCOCOOCOOCOCOCO « « «ee FOO 
OOOOOO ££ QOOCOOCOOOOCOOSO Fk kK KERR KEKE EE EQOOOOOOCOCOOCOCOOCOOCOOCOCOCO «£« « ee FOO 
HHonnnnnnnnnnnon " 
co 
ouo=x o oa oa 
z2ao aQze 1 oO bo ives 
we & wo Ga wma> _ = >< > 
N>OuN GOWwr > aew>- ec ww 2 wo w = 
Swe JIE BoOuevNwZez OfFfO NO o> < 
MITnor Yw3Xit-DOTTETMCOwwet CHOjeeSZs -§- SZwloa z 
¥PMOOW WwW FKLSZe— BVO—S— § SWOOW” Weiser Ouno> aoe uvr @MAVYuwst o 
OOOCOCOrF} MVO> > re EY Lt OW oO ZEUS > ME OUUME Kaw KOOTOrODVUWu0 > Zu _ 
O00000> 2 <MwWWwwdctetwwet oor BOCK ZwOCOwwWwE MME MEOKMESAEYHD MME DWwWoeWZ ” 
$0 tt OMWuuwrvwwMEROerSrOOVVUWrNr NM ASAZSZaeaeom tt tee ttt alka (OMe aoe ow 
BVBVBVBVB MH KLHKGHKHHAHAHGACHAHMAVO— tPittet_t_ ttt tt MMBMOv4gsgsgsgsssgorBsi;st ee = 
£8 8 8 F MMAAMRAAAARAA RAHAAA A AAA AAAAAPAAPAAAAPAPAAAPAAPAPAPAAPAAPAAPAAPAAPAAuU + 1 
DD i ti i i dt ad ad ad Od ad Bd Od Pt Pd Po OO Ot et eee OCC MOM OOOO OOOO ODODOMMmwwnwnnwnes 
VVVVUW JU I I I I I J I I I I I I I I I I Ee ee eee eee eeEE ESE w 
ait ewMOOAAAGAAAAAAAAAAGBAAAAGRAAAAAAHAAAAaeaeaoaaeaoaaocaeaoacaacaarcaeaeaeaeaMmnm 


™N 
oO 


OOooooooooooooo 
SoOSoooooooooooo 


OOOCOCOCOCOCOOCOSOOSOSOOOSOOSOOCOOOSOOoOSoOoOoCoOoOSooSo 
COOOCOCSSOSCOoooo 


fee) ee we ele aloo lel oleleolelolelelolelelelelelelololelo) 
hnnnnnnnun 


w = Pa 

v~v « «= ” ww w2Z 
Qa vw <«Zz25 zw o « 3 ~+ =~ NO 
w <« > ‘' @ 2 z2reoar Zi 
<aa mv a<atoree wv w wade « — SS ”n wm 
Wweawa © — & 22 x ja '—_<oaco +> Z2wwwwe- vos. o-m 
O>vde ae KEUNO rt yt ht fee fy tte tate ft ek tt titted tre 2222222004 
2wwrt ree Ye hater tit Tf We DDD ZO Owe ee OO <a OOO 
on ee (Aya ae ateasentee meee de BT BBN MO ME OO. ad te OE EG. Pad ah cal cal ch ch ed “8. 
>>> MM ww > OOMOMDMODOMOODOSY 44444444444 BBBBBIBe HI IBBBBIBIIBIIBIS 

MBS een ear eeeecc rc eeeorceerrrt 


H 15 
PLISRECOPT - pli runtime record io option processin 16-SEP-1 5:3 AX/VMS Macr Pa 
, sete « SEpaioee 97:49:43 * 


o V04-00 
PLIRTL.SRCJ PLIR ECOPT .MAR; 1 


“om 
— 


Symbol table 6- ) 
STK_L_AP FPrPPES 
STK“L-ARG_LIST FFFFFFF 
STK_L_CND_HND 0000000 
STK"L-CND-LST FFFFFFFG 
STK_L-DISPLAY FFFFFFFC 
STK_L_FP 0000 st) 
STK_L_PC 000 4 
STK_L_PSL B38 0004 
STKL-REGS 00014 
peer ere nw asescanwmae + 
! ;_Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
, 48% 00000000 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL ote NOEXE NORD ~~ NOVEC BYTE 
SABSS FFFFFFFC ¢ 0.) O1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD NOVEC BYTE 
_PLISCODE 00000467 ( 1127.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOURT NOVEC LONG 
deeiaitin tenia tinea 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 10 00:00:00.10 00:00:00.45 
——¢ processing 83 00:00:00.62 00:00:01.80 
184 00:00:06.52 00:00:13.46 
Syabol table sort 0 00:00:00.64 00:00:01.02 
Pass 2 110 00:00:01.72 00:00:03.87 
Symbol table output 15 00:00:00.10 00:00:00.10 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 404 00:00:09.72 00:00:20.72 


The working set Limit was 1200 pages. 

36133 bytes (71 pages) of virtual memory were used to buffer the intermediate cod 

There were 30 pages of symbol table space allocated to hold 506 non-local and 56 leash symbols. 
603 source Lines were read in Pass 1, producing 14 object records in Pass 2 

16 pages of virtual memory were used to define i4 macros. 


$woweeeeoocoeoocoeweooccoon} 


Macro Library name Macros defined 
-$255$DUA28: CPLIRTL.OBJJPLIRTMAC.MLB; 1 5 
“$255$DUA28:CSYSLIBISTARLET.MLB; 2 6 

TOTALS (all Libraries) 11 


513 GETS were required to define 11 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=TRACEBACK/LIS=LIS$:PLIRECOPT/OBJ=OBJ$:PLIRECOPT MSRC$:PLIRECOPT/UPDATE=(ENH$:PLIRECOPT) +LIBS:PLIRTM 
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